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I, David A. Zygmont, declare that: 

1. I am over the age of twenty-one (21) years. I am not suffering from any disabilities, I 
am competent to make this Declaration, and I have personal knowledge of the facts 
set forth herein. 

2. I am a named co-inventor in the above-identified application ("Application") and am 
a co-inventor of the subject matter described and claimed therein. 

3. Prior to the filing date of U.S. Patent No. 6,715,145 to Bowman- Amuah ("Bowman") 
(August 31, 1999), which is also the priority date of Bowman, I had conceived and 
reduced to practice the invention described and claimed in the Application in the 
United States at least as early as September 23, 1998, as evidenced by the following: 



Sir: 
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I conceived and reduced the invention to practice as shown in Exhibits 1, 2, 3, 4, 5, 6, 
and 7, attached. 

Exhibit 1 shows a computer file created on September 23, 1998, named Class_p.cpp, 
which illustrates a metaprogram to be combined with an object model by a meta- 
machine to generate a software system as in the Application. Metaprograms in the 
application are used to define a computer system architecture and are composed of a 
traditional programming language as well as metacode as described in the 
Application. In Exhibit 1, the traditional programming language is C++, and the 
metacode is delimited by the $ symbol 

Exhibit 2 shows a computer file named class_p.cpp-history.txt, which is the Visual 
Source Safe (VSS) history for Class__p.cpp. Exhibit 2 shows the Class_p.cpp file 
being created on September 23, 1998. 

Exhibit 3 shows a computer file created on January 13, 1999, named SQL7x_spl.cmt, 
which illustrates a metaprogram to be combined with an object model by a meta- 
machine to generate a software system as in the Application. 

Exhibit 4 shows a computer file named sql7x_sql.cmt-history.txt, which is a VSS file 
history showing that the file named SQL7x_spl.cmt was created on January 13, 1999. 

Exhibit 5 shows a Class Diagram representing the model of one embodiment of the 
invention of the Application. Exhibit 5 was created on October 16, 1998. 

Exhibit 6 shows a Class Diagram representing the model generator of one 
embodiment of the invention of the Application. Exhibit 6 was created during the 
month of October, 1998. 

Exhibit 7 is a Use Case Diagram representing one embodiment of the invention of the 
Application. Exhibit 7 was created during the month of October, 1998. 

Exhibit 8 is a Class Diagram of the code generator of one embodiment of the 
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invention of the Application. Exhibit 8 was created during the month of October, 



4. I further declare that all statements made herein of my own knowledge are true, and 
that all statements made on information and belief are believed to be true; and, 
further, that these statements were made with the knowledge that willful false 
statements and the like are punishable by fine or imprisonment, or both, under § 1001 
of Title 18 of the United States Code and that such willful false statements may 
jeopardize the validity of the application or document or any patent issuing therefrom. 



1998. 
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class_p.cpp 



* File Name : $CLASS_NAME$_p.cpp 

* Platform: 

* Windows NT 4.0 | windows 95 

* Dialect: 

* MS VC++ 5.0 

* Template: ATL 

* API set: MS Win32, ADO 

* Dev Lib: MFC lib 

* Build Info: 

* — other required files(header, resource, etc) 

* 

V 



* $CLASS_name$ : persistent business object class 

* $CLASS__DESCRIPTION$ 

* This file is generated 

* Based on version $$version$$ of the $$pro3ECT_code$$ oo model 

* DO NOT MODIFY - — 

* (aversion $$version$$ 

* ^author n/a 
V 

#include "stdafx.h" 

#ifdef _debug 
#undef THIS_FILE 

static char THIS_FILE[]= FILE ; 

#define new DEBUG_new 
#endif 

// include persistent object system 
#include "POSystem.h" 

// #include class delaration 
#include "$CLASS_NAME$_p.h" 

$BEG_IF_SUBCLASS$ 

#i ncl ude f, $SUPER_CLASS_NAME$_p.h H 

$END_IF_SUBCLASS$ 

// 1 -> 1 or N -> 1 

$BEG_FOR_EACH^ASSOC__OR_AGGR_TO_l$ 

$ B EG_I F_R E L ATION_R E LATED_C LAS S_P ERS I STENTS 

#i nclude "$related_class_name$_p. h" 

$END_IF_RELATION_RELATED_CLASS_PERSISTENT$ 

$END_FOR_EACH^SSOC_OR^GGR_TO_l$ 

// 1 -> N 

$B EG_FOR_EACH^SSOC_OR^\GGR_1_TO_N$ 

$BEG_IF_RELATION_RELATED_CLASS_PERSISTENT$ 

#i ncl Ude "$RELATED_CLASS_NAME$_p . h" 

#i ncl Ude "$RELATED__CLASS_NAME$_pc . h" 

$ END„I F_RE LATION_RE LATED_C LAS S_PERSI STENTS 

$END_FOR_EACH_ASSOC_OR_J\GGR_1_TO_N$ 

// N -> N 

$BEG_FOR_EACRJ\SSOC_OR_AGGR_N_TO_N$ 

$ B EG_I F_R E LATION_R E LATED_C LAS S_P E RS I STE NT$ 

#i ncl Ude M $RELATED_CLASS_NAME$_p. h" 

#i ncl ude "$RELATED_CLASS_NAME$_pc . h" 

$END_IF_RELATION_RELATED_CLASS_PERSISTEN$ 

$ END_FOR_EACFO\SSOC_OR_AGGR_N_TO_N$ 
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// static variables 

static lpctstr _selectText = 

"SELECT $CLASS_NAME$ . $CLASS_PK_NAME$ \ 

$BEG_FOR_EACH^ASSOC_OR_AGGR_TO_1$ , 
$CLASS_NAME$ . $RELATED_CLASS_ROLE_FK_NAME$$END_FOR_EACH^SSOC^OR^GGR_TO_1$ \ 

$BEG_FOR_EACH_PERSISTENT_^ATTR$ , 
$CLASS_NAME$ . $ATTR_NAME$$END_FOR_EACH_PERSISTENT_ATTR$ \ 
FROM $CLASS_NAME$ "; 

static LPCTSTR _lnsertText = 

"INSERT INTO $CLASS_NAME$ \ 
($CLASS_PK_NAME$ \ 

$BEG_FOR_EACH^SSOC_OR_AGGR_TO_l$ , 
$RELATED_CLASS_ROLE_FK_NAME$$END_FOR_EACH^ASSOCL_OR^AGGR_TO_l$ \ 

$BEG_FOR„EACH_PERSISTENT_ATTR$ , $ATTR_NAME$$END_F0R_EACH_PERSISTENT_^ATTR$) 

static lpctstr _updateText = 

"UPDATE $CLASS_NAME$ SET " ; 

static lpctstr _DeleteText = 

"DELETE FROM $CLASS_NAME$ WHERE $CLASS_PK_NAME$ = "; 

// create null object 

$CLASS_NAME$_p* 

$CLASS_NAME$„p : : CreateNul 1 Ob j 0 

AFX_MANAGE_STATE(AfxGetstati cModul estate O ) ; 

$CLASS_NAME$_p* pNull PO = new $CLASS_NAME$_p() ; 
pNullPO->m_isNULL = TRUE; 

pNullPO->setNewCFALSE) ; 
pNul 1 PO->setModi f i ed (false) ; 
pNunPO->nuisPopu1ated = TRUE; 

return pNullPO; 
// check nullness 

BOOL 

$class_name$_p: risNullO const 

AFX_MANAGE_STATE(AfxGetstati cModul estateO ) ; 
return (m_isNULL); 

// Constructors, Destructor and Assignment operator 

$CLASS_NAME$_p : : $CLASS_NAME$_p () : 

PObjectO , 

m_pos(POSystem: :Getlnstance()) 

AFX_MANAG E_STATE (Af xGet Stati CModul estat e O ) ; 
this->SetNew(TRUE) ; 
this->SetModified(TRUE) ; 

m_i SNULL = FALSE; 

nuispopulated = false; 
$ B EG..I FNOT_SU BCLASS $ 

m_$CLASS_PK_NAME$ = PObject : : GeneratePIDQ ; 

$END_IFNOT_SUBCLASS$ 
} 

$CLASS_NAME$_p: : $CLASS_NAME$_p (LPCTSTR pid) : 
PObjectO , 

m_pos(POSystem: :GetInstance()) 
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A FX_MAN AG E„STAT E (Af xGetS tati cModul eStat e () ) ; 
m_sqlselectstmt = _selectText; 

nusqlselectstmt += " where $class_name$ . $class_pk_name$ = 
m_sqlSelectStnrt += pid; 
rrusqlselectstmt += l,,n ; 
m_$CLASS_PK„NAME$ = pid; 

this->setModi fied (FALSE) ; 
this->SetNew(FALSE) ; 
if(_tcslen(pid) > 0) 
nuisNULL = false; 

else 

rruiSNULL = TRUE; 
m_is Populated = FALSE; 



void $CLASS_NAME$_p: : Popul ateSel f () const 

if(m_isPopulated) return; 

if(m_sql select Stmt. Get Length 0 = 0) return; 

ADODB: :_RecordsetPtr pRecordset 

= rrupos.Execute(m_sql Select Stmt); 
$CLASS_NAME$_p* pMutableObj 

= ($CLASS_NAME$_p*)this; 

if(!pRecordset->GetadoEOF()) 

pMutabl eob j ->Popul ate (pRecordset) ; 

else 

{ 

pMutabl eObq->SetNew(FALSE) ; 
pMutabl eobi->SetModi fied (FALSE) ; 
pMutableOb3->rruisNULL - FALSE; 



} 



pMutableObj->m_isPopulated = true; 



$CLASS_NAME$_p: :$CLASS_NAME$_p (adodb: : .Recordset Ptr& pRecordset) 
PObjectO, 

m_pos(POSystem: :Getlnstance()) 



{ 



AFX_MANAGE_STATE (Af xGet Stati cModul eStat e () ) ; 
if(IpRecordset->GetadoEOF()) 

this->Populate(pRecordset) ; 
this->setModi fied (FALSE) ; 
this->SetNew(FALSE) ; 
rruisNULL = FALSE; 

else 
{ 

thi s->setModi f i ed (FALSE) ; 
this->SetNew(FALSE) ; 
nuisNULL = TRUE; 

muisPopulated = TRUE; 
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// ctor by super class 

$BEG_IF_SUBCLASS$ 

$CLASS_NAME$„p: :$CLASS_NAME$_p (const $SUPER__CLASS_NAME$_p& SUperPO) : 

PObjectO , 

m_pos(POSystem: :Getlnstance()) 
AFX_MANAGE_STATE(AfxGetstati cModuleStateC)) ; 
m_sqlselectstmt = _SelectText; 

m_sqlselectstmt += " where $class_name$.$class_pk„name$ = ■"; 
m_sqlselectstmt += superPO.GetPlD() ; 
nusqlselectstmt += 

this->SetModified (false) ; 
this->SetNew(FALSE>; 
rruisNULL = FALSE; 
rruis Populated = FALSE; 

$END_IF_SUBCLASS$ 

// dtor 

$CLASS_NAME$_p: : ~$CLASS_NAME$_p() 

afx_manage_STATE (Af xGetStati cModul estate () ) ; 



void $CLASS_NAME$_p: : SetPID(LPCTSTR pid) 

AFX__MANAGE_STATE(Af xGetStati cModul estate()) ; 
m_$CLASS_PK_NAME$ = pid; 



CString $CLASS_NAME$_p: :GetPlD() const 

AFX_MANAGE_STATE(Af xGetStati CModul estate Q) ; 
return m_$CLASS_PK_NAME$ ; 



BOOL $CLASS_NAME$_p: : Popul ate(ADODB : :_RecordsetPtr& pRecordset) 

AFX_MANAGE_STATE(Af xGetStati cModul eStateO) ; 
ADODB: :FieldsPtr pFields = pRecordset->GetFields() ; 

_variant„t varltem; 
varltem 

= pFields->Getltem(_variant_t( ,, $CLASS_Pie_NAME$ ,, ))->GetValueO ; 
m_$CLASS_Pic_NAME$ = posystem: :VARiANTToKeyry pe (varltem) ; 



// do not assign any value if the DB value is null 

$ B EG_FOR_EACH_PERS I STENT_JVTTR$ 

varltem = pFields->Getitem(_variant_t("$ATTR_NAME$ ,, ))->Getvalue() ; 

nu$ATTR_NAME$ = POSystem: : VARIANTTo$ATTR_TYPE$ (varltem) ; 
$END_FOR_EACH_PERSISTENT_ATTR$ 
$BEG_FOR_EACH^SSOC_OR_AGGR_TO_l$ 

varltem = 

pFields->Getitem(_variant_t("$RELATED_CLASS_ROLE„FK_NAME$ ,, ))->Getvalue() ; 
itl-$RELATED_class_role_FK_name$ = POSystem: :VARlANTToKey Type (varltem) ; 

$END_FOR_EACH_ASSOC_OR^GGR_TO_l$ 

this->SetModified(FALSE) ; 
this->SetNew(FALSE) ; 
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m_isNULL = FALSE; 
m_isPopulated « true; 

return TRUE; 
// basic persistent operation 

BOOL 

$class_name$_p : : Save() 

AFX_MANAGE_STATE CAf xGet Stat i cModu 1 eS tate O ) ; 
// check if the save operation need to be performed 
if C! thi s->isModi f i ed () ) 
return TRUE; 

if(this->lsNew()) 

// insert 

cstring valuestrC" valuesC); 
valuestr += "'"; 
valuestr += m_$CLASS_PK_NAME$ ; 
valuestr += "; 

$ BEG_FOR_EACH^SSOCL_OR^AGGR_TO_l$ 

valuestr +« % "; 

i f Cm_$RELATED_CLASS_ROLE_FK_NAME$ . GetLength () > 
valuestr += 

valuestr += m_$RELATED_CLASS_ROLE_FfC_NAME$ ; 
valuestr += " r "; 

else 
{ 

valuestr += "NULL"; 

$END_FOR_EACH^ASSOC_OR^AGGR_TOJ$ 
$ B EG_FOR_EACH_PERS ISTENT_J\TTR$ 

valuestr +=","; 

valuestr += POSystem: :$ATTR_TYPE_lST_CAP$ToString(m_$ATTR^NAME$) ; 

$END_FOR_EACH_PERSISTENT_ATTR$ 

valuestr += ")"; 

rrupos.Execute(_lnsertText + valuestr); 

else 
{ 

// update 
CString setstr; 
$BEG_FOR_EACH„PERSISTENT_JYTTR$ 

setstr += 

"$BEG_IFNOT_LOOP_ITEM_FIRST$ , $ END_I FNOT_LOOP_ITEM_FI RST$ $ ATTR_NAME $=" ; 

setstr += POSystem: :$ATTR_TYPE_lST_CAP$ToSt ring (m_$ATTR_NAME$) ; 

$ END_FOR_EACH_PERSISTENT_JVTTR$ 
$BEG_FOR_EACH_j*SSOC_OK_AGGR_TO_l$ 

setStr += $RELATED — CLASS_ROLE_FK_NAME$=" ; 

i f Cm_$RELATED_CLASS_ROLE_Fie.NAME$ . GetLength O ) 

setstr += 11 9 " ■ 

setStr += m_$RELATED_CLASS_ROLE_FK_NAME$; 
setstr += 

else 
{ 

^ setstr += "NULL"; 
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$ END_F0R_EACH^SS0C_0R_AGGR_.T0_1$ 

setStr += " WHERE $CLASS_PK_NAME$ = '"; 
setstr += nu$CLASS_PK_NAME$ ; 
setstr += nt "; 

nupos. Execute (_updateText + setstr); 



this->SetModified (false) ; 
this->SetNew(FALSE) ; 

return TRUE; 

} 

// reload from data storage 

BOOL 

$CLASS_NAME$_p: :Reload() 

AFX_MANAGE_STATE (Af xGetStati cModul eStateQ) ; 
est ring sqlText(_Sel ectText) ; 

SqlText += " WHERE $CLASS_NAME$.$CLASS_PK W NAME$ « 
sqlText += this->GetPlD() : 
sqlText += 

adodb: :_RecordsetPtr pRecordset 

« m_pos. Execute (sqlText) ; 
if ( ! pRecordset ->GetadoEOF() ) 

this->Populate(pRecordset) ; 
this->SetModifi ed (FALSE) ; 
this->setNew(FALSE) ; 
m_i SNULL = FALSE; 

} 

else 
{ 

this->SetModified(TRUE) ; 
this->setNew(TRUE) ; 
m_i SNULL = TRUE; 

} . 

return true; 



// delete from data storage 

BOOL 

$CLASS_NAME$_p : : Del eteO 

AFX_MANAGE_STATE(Af xGetstati cModul estate ()) ; 
if(!rn_isPopulated) this->PopulateSelf () ; 

// nfL.pos.BeginTrans() ; 

// reset all N -> N relations 

$BEG_FOR_EACH_ASSOC_OR_AGGR_N_TO_N$ 
$BEG_IF_RELATION_RELATED_CLASS_PERSI STENTS 

// delete the relation 

CSt ring del eteStmt ("DELETE FROM $RELATION_NAME$ WHERE 
$RELATION_NAME$ . $CLASS_ROLE„FK_NAME$ = 1 ") ; 

deletestmt += this->GetPID() ; 
deletestmt += 

ADODB: :_RecordsetPtr pRecordset 
= m_pos. Execute (del et estmt) ; 
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$END_IF„RELATION_RELATED_CLASS_PERSISTENT$ 
$END_F0R_EACH_^\SS0C_0R_J\GGR__N_T0_N$ 

// reset all 1 -> n association relations 
$BEG__FOR_EACH^SSOCIATION_1_TO_N$ 
$BEG_IF_RELATION_RELATED_CLASS_;PERSISTENT$ 

// reset relation for all the related classes 
NULL WHErI^SS^SS ^ $^SS_ROLE_ F K_NAME$ - 

updatestmt += this->GetPlDO : 
updatestmt += 

adodb: :„RecordsetPtr pRecordset = m_pos. Execute (updatestmt) ; 

$END„IF_RELATION„RELATED_CLASS_PERSISTENT$ 
$END_FOR_EACH^SSOCIATION_l_TO_N$ 

// delete all 1 -> n aggregated objects 
$beg_for_each_aggregation_i_to!n$ 

$ B EG_I F_R E LATION_TH IS_C LAS S^ AGG R EGATE $ 
$BEG_IF_RELATION_RELATED_CLASS_PERSISTENT$ 

$RELATED_CLASS_NAME$_pc* pPOList = 
thl S->Get$RELATED_CLASS_ROLE_NAME_lST_CAP$List O : 
pPOLi st->Del eteAl 1 () ; 
delete pPOList; 

$END_IF_RELATION_RELATED.CLASS_PERSISTENT$ 
$END_IF_REI_ATION_THIS_CLASS_AGGREGATE$ 
$ END_FOR„EACH^AGGREGATION_l_TO_N$ 

// delete all n -> 1 or 1 -> l aggregated obiects 
$BEGl_FOR_EACH_^GGREGATION_TO_1$ j 
SBEG^IF^RELATION.THIS.CLASS^AGGREGATES 
$BEG_IF_RELATION_RELATED_CLASS_PERSISTENT$ 

if(this->Has$RELATED_CLASS_R0LE_NAME_lST_CAP$O) 

$ R E LAT ED__C LA S S_N AM E $ p * pPO = 

thlS->Get$RELATED_CLASS_ROLE_NAME_lST CAP$Q: 

pPO->DeleteO; 
delete pPO; 

$end1if„relation_related_class_persistent$ 

$ E ND_I F_RE LATION__THI S_C LAS S^GG R EGATE $ 

$END_FOR_EACH^VGGREGATION_TO_l$ 

$BEG_IF_SUBCLASS$ 

// delete super class 



i if . 



est ring del stmt = "delete from $super^class_name$ where $class__pkl_name$ 

delstmt += this->GetPlD() : 
del stmt += " ,n ; 
nupos . Execute (del stmt) ; 



$END_IF_SUBCLASS$ 

// delete self 

est ring idstr = "'" + m_$CLASS_Pic_NAME$ + 
m_pos. Execute (_DeleteText + idstr); 

// m_pos . commi tTran s () ; 
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SetModified(TRUE) ; 
SetNew(TRUE) ; 

return TRUE; 

// copy from other object 
void 

$CLASS_NAME$_p: ;CopyAttrFrom(const $CLASS_NAME$_p& po) 

// local attributes 
$BEG_FOR_EACH_PERSISTENT_ATTR$ 

thi S->Set$ATTR_NAME_lST_CAP$ (po . Get$ATTR_NAME__lST_CAP$ () ) ; 
$END_FOR_EACH_PERSISTENT_^ATTR$ 
} 

$BEGLIF_SUBCLASS$ 

// treat inheritance as 1 -> 1 relation 

$SUPER_CLASS_NAME$_p* $CLASS_NAME$_p : :Get$SUPER_CLASS_NAME$() const 

AFX_MANAGE_STATE (Af xGetstat i cModul eState()) ; 
i f ( ! m_i sPopul ated) thi s->Popul atesel f O ; 

ASSERT (m_$CLASS_PK_NAME$, Get Length () > 0); 

return new $SUPER_CLASS_NAME$_p(m_$CLASS_PIC_NAME$) ; 

// set up relation 

void $CLASS_NAME$_p: : Set $SUPER_CLASS_NAME$ (const $SUPER_CLASS_NAME$_p& po) 

AF)CMANAGE_STATE(AfxGetStati CModul estate O) ; 
i f ( i m_i sPopul ated) thi s->Popul atesel fO ; 
thi s->m_$CLASS_PK_NAME$ = po.GetPID(); 
thi s->SetModified (TRUE) ; 

$END_IF_SUBCLASS$ 

// Traversal 1 -> n (assoc_or_j\ggr) 

$ B EG_FOR_EACH^SSOC_OR_AGGR_l_TO_N $ 
$BEGu.IF_RELATION_RELATED_CLASS_PERSISTENT$ 
$BEG_IF_REI^TION_RELATED_CLASS_NAVIGABLE$ 
$RELATED_CLASS„NAME$_pc* 

$CLASS.NAME$_p: :Get$RELATED_CLASS_ROLE_NAME_lST_CAP$List() Const 

AFXJ^lANAGE^STATECAfxGetStati cModul estate ()) ; 
if (IrruisPopulated) thi s->Popul atesel f O ; 

CString boolExpressiO|lC"$RELATED.CLASS_NAME$.$CLASS_ROLE_FIC-NAME$ = ") ; 

bool Expressi on += ,,f "; 

bool Expression += this->GetPID() ; 

bool Expression += 

$ RE L ATED_C LAS S_N AME $_p C * pPOList = new $RELATED_CLASS__NAME$_pc() ; 

pPOLi st->Search(bool Expressi on) ; 
return pPOList; 

// Set up relationship 1 -> n 
void 

$CLASS_NAME$_p : : Set$RELATED_CLASS_ROLE_NAME_lST_CAP$C$RELATED_CLASS_NAME$_p& po) 
AFX_MANAGE_STATE (Af xGetStati cModul eState()) ; 
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if (!m_is Populated) this->PopulateSelf () ; 
if(po.IsNullO) 

// reset relation for all the related classes 

est ring updatestmt ("update $related_class_name$ set $class_role_fk_name$ = 

NULL WHERE $CLASS_ROLE_FK_NAME$ = ' 

updatestmt += this->GetPlD() ; 
updatestmt += ,,,M ; 

ADODB: :_RecordsetPtr pRecordset = nupos. Execute (updatestmt) ; 

else 
{ 

if(!po.m_isPopulated) po.PopulateSelf () ; 

po.m_$CLASS_ROLE_FKL-NAME$ = thi S->GetPID() ; 

po . SetModi f i ed (TRUE) ; 
po.SaveO ; 

(f //est ring updatestmt("uPDATE $related_class_name$ set $class_role_fk_name$ = 
//updatestmt += this->GetPlD() ; 

//updatestmt += '" WHERE $RELATED_CLASS_PK„NAME$ = "' ; 
//updatestmt += po.GetPlD(); 
//updatestmt += "; 

//ADODB: :_RecordsetPtr pRecordset = nfupos . Execute (updat estmt ) ; 

} 

} 

$END_IF_RELATION_RELATED_CLASS_NAVIGABLE$ 

$END_IF_RELATION_RELATED_CLASS_PERSISTENT$ 

$END_F0R_EACH - ASSOC_0R^AGGR_LTO_N$ 

// Traversal n -> n (assoc_or^aggr) 
$beg_for_each^ssoc_or^aggr_n_to_n$ 
$beg_j:f_relation_related_class_persistent$ 
$beg_if_relation_related_class_navigable$ 

$RELATED_CLASS_NAME$_pc* 

$CLASS_NAME$_p: : Get$RELATED_CLASS_ROLE_NAME__lST_CAP$Li St () const 

AFX_MANAGE_STATE(AfxGetstati cModul estate ()) ; 
if(!m_isPopulated) this->PopulateSelf () ; 

cstring bool Expression("$RELATTON_NAME$ . $class_role_fk_name$ - '"); 
bool Expression += this->GetPlD() ; 
bool Expression += " ' AND "; 

bool Expression += " $relation_name$.$related_class_role_fk_name$ = 

$RELATED_CLASS_NAME$ . $ RELATED,. CLAS5„PK_NAME$ ,t ; 

cstring addTabNames (" $relation_name$" ) ; 

$RELATED_CLASS_NAME$_pc* pPOList = new $RELATED_CLASS_NAME$_pc() ; 

pPOList->Search (bool Expression, addTabNames) ; 
return pPOList; 



// Set up relationship with ONE N -> N related object 
void 

$CLASS_NAME$_p : : Set $RELATED_CLASS_ROLE_N AM E_lST_CAP$ (const $RELATED_CLASS_NAME$_p& 
JO) 

afx_manage_state (Af xGetStat i cModul estate () ) ; 

if (!m_isPopulated) this->PopulateSelf () ; 
if(po.lsNullO) 
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{ 

// delete the relation 

est ring del etestmt ("delete from $relation_name$ where 

$RELATION_NAME$.$CLASS_ROLE_FK_NAME$ = ' ") ; 
deletestmt += this->GetPlD() ; 
del etestmt += ,f,n ; 
ADODB: :_RecordsetPtr pRecordset 
= m_pos. Execute (del etestmt); 
return; 

} 

est ring select stmt ("select * from $relation_name$ where 

$RELATION_NAME$ . $CLASS_ROLE_FK_NAME$ = f ") ; 

selectstmt += this->GetPID() ; 

selectstmt += and $relation_name$.$related_class_role_fk_name$ = '"; 
selectstmt += po.GetPID(); 
selectstmt += ; 
adodb: :_RecordsetPtr pRecordset 
= m_pos . Execute (sel ectstmt) ; 
if(pRecordset->GetadoEOF()) 

cstring i nsertstmt ("insert into $relation_name$ ($class_role_fk_name$, 

$RELATED_CLASS_ROLE_FK_NAME$) VALUES ( ,M ); 

insertstmt += this->GetPlDO ; 
i nsertstmt += " ' , '"; 
insertstmt += po.GetPlDQ; 
insertstmt += 
m_pos . Execute (i nsertstmt) ; 

} 

$END_IF_RELATION_RELATED_CLASS_NAVIGABLE$ 

$END_IF_RELATION_RELATED_CLASS_PERSISTENT$ 

$END_F0R_EACH_^SS0C_0R_AGGR_N_T0__N$ 

// Traversal N -> 1 or 1 -> 1 (assoc_or^\ggr) 
$BEG_F0R_EACH_j4SSOC_OR_AGGR_T0_l$ 
$BEG_IF_RELATION_RELATED__C LAS S__PE RSI STENTS 
$BEG_IF_RELATION_RELATED_CLASS_NAVIGABLE$ 
BOOL 

$CLASS_NAME$_p: :Has$RELATED_CLASS_ROLE_NAME_lST_CAP$() const 

AFX_MANAGE_STATE(AfxGetStaticModul estate()) ; 

if (inuispopulated) this->Populateself Q ; 

return (nfu$RELATED_CLASS_ROLE_FK_NAME$-GetLength() != 0); 



$RELATED_CLASS_NAME$_p* 

$CLASS_NAME$_p: :Get$RELATED_CLASS_ROLE_NAME_lST_CAP$() const 

AFX_MANAGE_STATE(Af xGetstati cModul estate() ) ; 
i f ( ! m_i sPopul ated) thi s->Popul atesel f () ; 

$RELATED_CLASS_NAME$_p* pPO 

= new $RELATED_CLASS«NAME$_p(m_$RELATED_CLASS_ROLE_FIC_NAME$); 

if(pPO->lSNull()) { 

delete pPO; 
return NULL; 

} 

return pPO; 
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Class_p.cpp 

// Set up relationship 
void 

$CLASS_NAME$_p : : Set $RELATED_CLASS_ROLE_NAME_lST_CAP$ Cconst $ R E L ATED_C LAS S„N AM E $_p& 

AFX_MANAGE_STATE(AfxGetStati cModul eState-0) ; 
if (!m_isPopulated) this->PopulateSelf () ; 

m_$ R E LATED_C LAS S_RO L E_F K_NAM E $ = pO.GetPID(); 

this->setModified(TRUE) ; 

$END_IF_RELATION_RELATED_CLASS_NAVIGABLE$ 
$ END_I F_RE LATION_R E L ATED_C LAS S_PERS I STENTS 
$ END_F0R_EACH^ASS0C_0R^AGGR_TO_l$ 

* Attribute accessors and mutators 

* Scope: public 

* @param na 

* ©return na 

* ©exception na 
V 

// Attribute Accessors and Mutators 

$BEG_FOR_EACH_PERSISTENT_JVTTR$ 

Const $ATTR_TYPE$ $CLASS_NAME$„p : :Get$ATTR_NAME_lST_CAP$0 const 

AFX_MANAGE_STATE(AfxGetStati cModul eStateO) ; 

if (inuisPopulated) this->PopulateSelf O ; 
return m_$ATTR_NAME$; 

} 

void 

$CLASS_NAME$_p: : Set $ATTR_NAME_lST_CAP$ (const $ATTR_TYPE$ attr) 

AFX^MANAGE_STATE(AfxGetstati cModul eStateO) ; 

if (!m_isPopulated) this->PopulateSelf () ; 
m_$ATTR_NAME$ = attr; 
this->setModified(TRUE) ; 

$END_FOR_EACH_PERSISTENT_ATTR$ 
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* Database name: <%=mconiponent .name%> 

* DBMS name: Oracle 8.x 

* Created on: $$DATETIME$$ 

V " 
<% var Counter = 1; %> 

<% var theMCl asses = mcomponent .getMetaClasses ( ) ; 
for (i = 0; i < theMClasses .Count; { 
var theMClass = theMClasses . Item (i) ; 
if (theMClass .persistence != xy PERS I STENT ) { 
continue; 

} 

var theAttrs = theMClass .getAttributes () ; 

%> 

* Table: <%=theMClass .name%> 
*/ 

create table <%=theMClass .name%> 
( 

<%= theMCl as s .name %> Id var char (40) not null, 

<% 

for(j = 0; j < theAttrs . Count ; j++) { 
var theAttr = theAttrs . Item (j ) ; 
if (theAttr. persistence == xy PERS I S TENT ) { 

dbType = AppGen . getlmpDataType ( " SQL 7 " , theAttr . dataType) ; 

dbTypeSize = " " ; 

if (theAttr. size != "") { 

dbTypeSize = " ('» + theAttr. size + ")"; 

} 

%> 

<%=theAttr.name%> <%=dbType%x%=dbTypeSize%><%if (! theAttr . isNullable) {%> not 
null<%}else{%> null<%}%> 7 
<% 

} // end if (theAttr .persistence == xyPERSISTENT) 
} // for(j =0; j < theAttrs . Count ; j++) 

// find out foreign keys 
var theRoles = theMClass .getRoles () ; 
for(j = 0; j < theRoles. Count; { 
var theRole = theRoles . Item(j ) ; 
var theRelatedRole « theRole .getRelatedRole () ; 
if (theRole. get Association () .hasLinkClass ( ) ) { 

// the FK to the link table will be in the current table 
// iff [*] to [0,1 or 13 

// otherwise the FK's will be in the link table 
if (theRelatedRole. multiplicity == xyEXACTLY_ONE 
|| theRelatedRole. multiplicity == xyOPTIONAL) { 

%> 

<%=theRole.getAssociation() .getLinkClass () .name%>Id 
varchar (40) <%if (theRelatedRole. multiplicity==xyEXACTLY_ONE) {%> not 
null<%}else{%> null<%}%>, 
<% 

} 

continue; 



var hasFK = false; 

if (theRelatedRole. getMetaClass <) .persistence xyTRANSIENT) { 
continue; 

} 

if (theRelatedRole. multiplicity == xyEXACTLY_ONE 
|| theRelatedRole. multiplicity xyOPTIONAL) { 
if (theRole . is Aggregate) { 

// FK always favor to aggregating class 
hasFK = true; 
} else if (theRelatedRole. isAggregate) { 

if {theRole. multiplicity == xyZERO_OR_MORE | | 
theRole. multiplcity == xyONE_OR_M0RE || theRole .multiplcity xyMANY) 

{ 

hasFK = true; 

} 

} else if (theRelatedRole. multiplicity == theRole .multiplicity) { 
// we have 1-1 or 0,1-0,1 association 
// we need to pick a side 
i f ( theRole . ob j Id == 
theRole. getAssociationO .getRolesO .Item(O) .objld) { 

// theRole is the first role in the association 
hasFK = true; 

} 

} else if (theRelatedRole. multiplicity == xyEXACTLYJDNE) { 

hasFK = true; 
} else if (theRole. multiplicity != xy EXACTLY_ONE ) { 

hasFK = true; 

} 

} 

if (hasFK) { 

%> 

<%=theRelatedRole . roleName%>Id 
varchar (40) <%if (theRelatedRole. multiplicity==xyEXACTLY_ONE) {%> not 
null<%}else{%> null<%}%>, 
<% 

} // end if (hasFK) 
} // end for(j = 0; j < theRoles .Count ; j++) 

// if the class is a link class 
// more foreign key(s) need to be added 
if (theMClass . hasLinkAssociation () ) { 

var theRolel = theMClass .getLinkAssociation() .getRoles {). Item (0) ; 
var theRole2 = theMClass .getLinkAssociation () .getRoles (). Item (1) ; 
if (theRolel. multiplicity == xyZERO_0R_MORE 
| | theRolel. multiplicity == xyONE_OR_MORE 
j j theRolel. multiplicity ™ xyMANY) 

{ 

<%-theRole2 . roleName%>Id varchar (40) not null, 

}//end if (theRolel. multiplicity » xyZERO_OR_MORE . . . ) 
if (theRole2 .multiplicity == xyZERO_OR_MORE 
|| theRole2 .multiplicity == xyONE_OR_MORE 
j | theRole2 .multiplicity == xyMANY) 

{ 

<%= theRolel. roleName%>Id varchar (40) not null, 



%> 

<% 

%> 



<% 

}//end if {theRole2 .multiplicity == xyZERO__OR_MORE . . . ) 
} // end if CtheMClass . hasLinkAssociation () ) 

%> 

constraint PK_< % =theMCl ass .name %> primary key (<%=theMClass . name%>Id) 

) 

go 

<% // for each [many] to [1 or 0.1] associatioin 

// create index 

var theRoles = theMClass .getRoles () ; 
for(j = 0; j < theRoles. Count; j++) { 

var theRole = theRoles . Item (j ) ; 

var theRelatedRole = theRole .getRelatedRole () ; 

var hasFK = false; 

if (theRole. get Association {) .hasLinkClass () ) { 

// the FK to the link table will be in the current table 
// iff [*] to [0,1 or 1] 

// otherwise the FK's will be in the link table 
if (theRelatedRole. multiplicity == xyEXACTLY_ONE 
j | theRelatedRole. multiplicity == xyOPTIONAL) { 

%> 

* Index: Rel_< %= theRole . roleName%x%=Counter%x%Counter++%> FK 

* ~ ====== -— ====== __ 

V " " = 

create index Re 1_<%= theRole . roleName%x%=Counter%x%Counter++%>_FK on 
<%=theMClass.name%> (<%= theRole . roleName%> Id) 
go 

<% • 

} 

continue ; 

} 

if (theRelatedRole. getMetaClass () .persistence == xyTRANSIENT) { 
continue; 

} 

if (theRelatedRole. multiplicity == xyEXACTLY_ONE 
|| theRelatedRole. multiplicity -= xyOPTIONAL) { 
i f ( theRole . i sAggregat e ) { 

// FK always favor to aggregating class 
hasFK = true; 
} else if (theRelatedRole. isAggregate) { 

if (theRole. multiplicity xyZERO_OR_MORE 
| | theRole. mult iplcity =- xyONE_OR_MORE 
| | theRole. multiplcity == xyMANY) 

hasFK - true; 

} 

} else if (theRelatedRole. multiplicity == theRole .multiplicity) { 
//we have l-l or 0,1-0,1 association 
// we need to pick a side 
if (theRole. ob j Id == 
theRole. getAssociationO . getRoles () .ltem(0) .objld) { 

// theRole is the first role in the association 
hasFK = true; 

} 

} else if (theRelatedRole. multiplicity == xyEXAC TLY_0NE ) { 
hasFK = true; 



} else if (theRole. multiplicity 1= xyEXACTLY_ONE ) { 
hasFK = true; 

} 

} 

if (hasFK) { 

%> 

/* ==============================:=s========s======================= 

* Index: Rel <%=theRole . roleName%x%=Counter%x%Counter++%> FK 



*/ 

create index Rel_<%=theRole . roleName%x%=Counter%x%Counter++%>_FK on 

<%=theMClass .name%> (<%=theRelatedRole . roleName%>Id) ; 

<% 

} // end if (hasFK) 
} // end for(j =0; j < theRoles . Count ; 
// if the class is a link class 
// more foreign key index need to be added 
if ( theMClass . hasLinkAssociation ( ) ) { 

var theRolel = theMClass .getLinkAssociation () .getRoles (). Item (0) ; 

var theRole2 = theMClass .getLinkAssociation () .getRoles 0. Item (1) ; 

if (theRolel .multiplicity =« xyZERO_0R_MORE 
| | theRolel .multiplicity == xyONE_OR_MORE 
jj theRolel. multiplicity == xyMANY) 

{ 

%> 

* Index: Rel <%= theRole . roleName%x%=Counter%x%Counter++%> FK1 



*/ 

create index Rel_< %= theRole . roleName%x%=Counter%x%Counter++%>_FKl on 

<%=theMClass .name%> (<%=theRole2 . roleName%>Id) 

go 

<% 

}//end if (theRolel. multiplicity == xyZERO_0R_M0RE . . . > 
if (theRole2 .multiplicity == xyZERO_OR_MORE 

|| theRole2 .multiplicity == xyONE — OR_MORE 

| j theRole2 .multiplicity == xyMANY) 

{ 

%> 

* Index: Rel <%=theRole . roleName%x%=Counter%x%Counter++%> FK2 



*/ 

create index Rel_<%= theRole . roleName%x%==Counter%x%Counter++%>__FK2 on 

<%=theMClass ,name%> (<%=theRolel . roleName%>Id) 

go 

<% 

}//end if (theRole2 .multiplicity == xyZERO_OR_M0RE . . . ) 
}// end if (theMClass . hasLinkAssociation () ) 
} // end for (i = 0; i < theMClasses .Count ; i++) 

%> • 

<% // for each relation in component 

for(i = 0; i < mcomponent .get Assoc iat ions () .Count ; i++) { 
var theAssoc = mcomponent .get Assoc iations (). Item (i) ; 
var theRolel = theAssoc. getRoles {). Item (0) ; 
var theRole2 = theAssoc . getRoles (). Item ( 1) ; 
//if the association has linkclass 



// it already handle in the process of 
// creating link class table 
if (theAssoc .hasLinkClass () ) { 
continue ; 

} 

if (theRolel .getMetaClass () .persistence ! = xyPERSIST£NT 

|| theRole2 .getMetaClass () .persistence ! = xyPERSISTENT) { 
continue; 

} 

// if the assoc is many to many relation 
if ( (theRolel. multiplicity == xyMANY 

| | theRolel .multiplicity == xyZERO_OR_MORE 
j | theRolel .multiplicity == xyONE_OR_MORE) 
&& (theRole2 .multiplicity == xyMANY 

| | theRole2 .multiplicity == xyZERO_OR_MORE 
| j theRole2 .multiplicity == xyONE_OR_MORE) ) { 

%> 

* Table: <%=theAssoc .name%> 



*/ 

create table <%=theAssoc. name%> 
( 

<%=theRolel .roleName%>Id varchar(40) not null, 
<%=theRole2 .roleName%>Id varchar(40) not null, 

constraint PK_< %= theAssoc .name %> primary key (<%=theRolel . roleName%>Id, 
<%=theRole2 . roleName%>Id) 
) 

go 

/* ==============™============^^^ 

* Index: Rel_<%=theAssoc.name%x%=Counter%x%Counter++%> FK 



*/ 

create index Re 1_<%= theAssoc .name%x%=Counter%x%Counter++%>_FK on 

<%=theAssoc.name%> (<%= theRolel . roleName%>Id) 

go 

/* ========================== == ^^ 

* Index: Rel_<%=theAssoc.name%x%=Counter%x%Counter++%>_FK 

* = = = = = = = = = = = = = = === = = = = = = == = = = = === = = = = = = = = = »= = :5as=: = = = = = = == = ==== 

*/ 

create index Rel_<%= theAssoc . name%x%=Counter%x%Counter++%>_FK on 

<%=theAssoc . name%> (<%=theRole2 . roleName%>Id) 

go 

<% 

} // end if ( (theRolel. multiplicity == xyMANY ...)) 
} // end ford = 0; i < mcomponent .getAssociat ions (>. Count; i++) 

%> 

<% // for each generalization in the component 
/ / add ref erencial integrity constraints 
var theGens = mcomponent , getGeneralizations () ; 
ford = 0; i < theGens . Count ; i++) { 

var theGen = theGens . Item (i) ; 

var superclass = theGen. getSuperClass () 

var subclass = theGen. getSubClass () ; 



if (superclass. persistence != xy PERSISTENT || subclass .persistence !- 
xyPERSISTENT) { 

cont inue ; 

} 

%> 

* Reference: Inhr_<%=subClass.name%x%=Counter%x%Counter++%> 

* ssss=sssssssa=sasas = =- = = - = 1==: = = = 

V " ----- --=-- ------ ________ 

alter table <%=subClass .name%> 

add constraint Inhr_<%=subClass .name%x%=Counter%x%Counter++%> foreign key 
(<%=subClass.name%>Id) 

references <%=superClass .name%> (<%=superClass .name%>Id) 

go 
<% 

} // end for(i = 0; i < theGens . Count ; i++> 

%> 
<% 

// for each link association in the component 
// add referencial integrity constraints 
var theAssocs - mcomponent .get Assoc iat ions () ; 
ford - 0; i < theAssocs. Count; i++) { 

var theAssoc = theAssocs . Item (i) ; 

// only handle the link association 

if ( ! theAssoc . hasLinkClass ( ) ) { 
continue; 

} 

var theRolel - theAssoc . getRoles (). Item(0) ; 
var theRole2 = theAssoc .getRoles (). Item (1) ; 
if (theRolel. multiplicity == xy EXAC TL Y_0NE 
| | theRolel. multiplicity == xyOPTIONAL) { 

%> 

/* =============== ==S = M===S======= „ == ^ --_-__-_==_____________ 

* Reference: Rel_<%=theAssoc .name%x%=Counter%x%Counter++%> 

* _____—_-=_--____._._._._.___._____._ _ 

V — --—--------—--___ ______ 

alter table <%=theRole2 . getMetaClass () .name%> 

add constraint Re __<%= theAssoc .name%x% -Count er%x%Counter++%> foreign key 
(<%=theAssoc.getLinkClass () .name%>Id) 

references 

<%=theAssoc.getLinkClass () .name%> (<%= theAssoc . getLinkClass ( ) .name%>Id) 

go 

<% 

}//end if (theRolel. multiplicity == xyEXACTLY_ONE . . . ) 
if (theRole2 .multiplicity == xyEXACTLY_ONE 
|| theRole2 -multiplicity -= xyOPTIONAL) { 

%> 

/* --==---=--=--===---=-----=-=-„ 

* Reference: Re 1_<%= theAssoc .name%x%=Counter%x%Counter++%> 

* -=________--—_--——_-____.___„„_„„_ 

*/ 

alter table <%=theRolel . getMetaClass () . name%> 

add constraint Rel_<%= the Assoc .name%x%=Counter%x%Counter++%> foreign key 
(<%=theAssoc. getLinkClass () .name%>Id) 

references 

<%=theAssoc. getLinkClass () .name%> (<%=theAssoc .getLinkClass () .name%>Id) 
go 



<% 

}//end if (theRole2. multiplicity == xyEXACTL Y_ONE . . . ) 
if (theRolel. multiplicity == xyZERO_0R_MORE 

|| theRolel. multiplicity === xyONE_OR_MORE 

|| theRolel. multiplicity == xyMANY) 

%> 

/* = = - = = = = = = = = = === = = = = = = = = = = = = = = s = == : = = S5 = = ^ = _ = = == = = =5 = = = = = = _ = = 

* Reference: Rel_<%=theAssoc .name%><%=Counter%x%Counter++%> 
*/ ~ -------------- 

alter table <%=theAssoc.getLinkClass () .name%> 

add constraint Rel_<%=theAsBOC.name%x%=Counter%x%Counter++%> foreign key 
(<%=theRole2 . roleName%>Id) 

references 

<%=theRole2. getMetaClass <) ,name%> (<%=theRole2 .getMetaClass () .name%>Id) 

go 

<% 

}//end if (theRolel. multiplicity =*= xyZER0__OR___M0RE . . . ) 
if (theRole2 .multiplicity -= xyZERO_OR__MORE 

|| theRole2 .multiplicity == xyONE_OR__MORE 

|| theRole2. multiplicity == xyMANY) 

%> 

* Reference: Rel_<%=theAssoc .name%x%=Counter%x%Counter++%> 

* 

V 

alter table <%= theAssoc .get LinkClass () .name%> 

add constraint Rel_<%=theAssoc.name%x%=Counter%><%Counter++%> foreign key 
(<% -theRolel. roleName%>Id) 

references 

<%=theRolel. getMetaClass () . name%> (< %== theRolel -getMetaClass () .name%>Id) 

go 

<% 

} //end if (theRole2. multiplicity == xyZERO OR MORE...) 
%> ~ ~ 

<% 

} // end for(i _ 0; i < theAssocs . Count ; i++) 

%> 
<% 

// for each non-link association in the component 
// add referencial integrity constraints 
var theAssocs - mcomponent . get Assoc i at ions () ; 
for(i =- 0; i < theAssocs . Count ; i++) { 

var theAssoc - theAssocs . Item (i) ; 

var theRolel - theAssoc .getRoles (). Item (0) ; 

var theRole2 - theAssoc .getRoles (). Item (1) ; 

// the link association already handled 

if (theAssoc. hasLinkClass () ) { 
continue; 

} 

if (theRolel. getMetaClass () .persistence 1= xy PERS I STENT 

|| theRole2. getMetaClass () .persistence != xyPERSISTENT) { 
continue; 

} 

// determine where does foreign key go 



var hasFKOnRolel = false; 

var hasFK0nRole2 = false; 

if ( (theRolel, multiplicity == xyMANY 

| | theRolel. multiplicity == xyONE_OR_MORE 
j | theRolel. multiplicity == xyZERO_OR_MORE) 
&& 

(theRole2 .multiplicity == xyEXACTLY_ONE 
|| theRole2. multiplicity == xyOPTIONAL) ) { 
// [many] to [0,1 or 1] 
hasFKOnRolel = true; 
} else if C (theRole2 .multiplicity xyMANY 

|| theRole2 .multiplicity xyONE_OR_MORE 
j j theRole2 .multiplicity == xyZERO_OR_MORE ) 

(theRolel. multiplicity xyEXACTLY_ONE 
|| theRolel. multiplicity == xyOPTIONAL) y { 
II [0,1 or 1] to [many] 
hasFKOnRole2 = true; 
} else if ( (theRole2. multiplicity == xyEXACTLYJDNE 
| | theRole2. multiplicity == xyOPTIONAL) 
*&& 

(theRolel. multiplicity == xyEXACTLY_ONE 
|| theRolel. multiplicity == xyOPTIONAL) ) { 
// [0,1 or 1] to [0,1 or 1] 
if (theRolel .is Aggregate) { 

hasFKOnRolel = true; 
} else if (theRole2 . isAggregate) { 

hasFKOnRole2 = true; 
} else if (theRolel. multiplicity == xyEXACTLYJDNE 

&& theRole2 .multiplicity == xyOPTIONAL) { 
hasFKOnRolel = true; 
} else if (theRole2. multiplicity == xyEXACTLY_ONE 

&& theRolel. multiplicity == xyOPTIONAL) { 
hasFKOnRole2 = true; 
} else { 

hasFKOnRolel = true; 

} 

} 

if (hasFKOnRole2) { 

%> 

* Reference : Rel_<%=theAssoc.name%x%=Counter%x%Counter++%> 



*/ 

alter table <%=theRole2 . getMetaClass () .name%> 

add constraint Rel_<%=theAssoc.name%x%=Counter%x%Counter++%> foreign key 
(<%=theRolel.roleName%>Id) 

references 

<%=theRolel. getMetaClass () .name%> (<%=theRolel .getMetaClass () .name%>Id) 

go 

<% 

} // end if (hasFKOnRole2) 
else if (hasFKOnRolel) { 

%> 

* Reference: Rel_<%=theAssoc .name%x%=Counter%x%Counter++%> 



*/ 

alter table <%=theRolel . getMetaClass ( ) ,name%> 

add constraint Rel_<%-theAssoc .name%x%=Counter%x%Counter++%> foreign key 
(<%=theRole2 . roleName%>Id) 

references 

<%=theRole2 .getMetaClass () .name%> <<%=theRole2 . getMetaClass { ) .name%>Id) 

go 

<% 

} // end if (hasFKOnRolel) 

// if [many] to [many] 

if { (theRolel. multiplicity == xyMANY 

|| theRolel. multiplicity == xy0NE_0R_MORE 

| j theRolel. multiplicity == xyZERO_OR_MORE) 
&& 

(theRole2 .multiplicity == xyMANY 
|| theRole2 .multiplicity == xyONE_OR_MORE 
( j theRole2 .multiplicity == xyZERO_OR_MORE) ) { 

%> 

/* mmmmmmm „ m „„ mm 

* Reference: Rel_<%= the Assoc .name%x%=Counter%x%Counter++%> 

* = = = =s= = = = = = = = = = = z= = =:=s = = = = =jss = = = =: = = = = =s=i=s=;=a== = = =2s= = = == = = = = 

*/ 

alter table <%=theAssoc .name%> 

add constraint Rel_ <%=theAssoc. name%x%=Counter%x%Counter++%> foreign key 
(<%=theRolel .roleName%>Id) 

references <%=theRolel .getMetaClass () .name%> 
(<%=theRolel. getMetaClass () .name%>Id) 
go 

* Reference: Rel_<%=theAssoc .name%x%=Counter%x%Counter++%> 

* - ==== — —— = -— === —- = --— —_ === — — = — — =========:= — — 

*/ " " 

alter table <%«theAssoc.name%> 

add constraint Rel_<%=theAssoc .name%x%=Counter%x%Counter++%> foreign key 
(<%=theRole2 .roleName%>Id) 

references <%=theRole2 .getMetaClass () .name%> 
(<%=theRole2 .getMetaClass () .name%>Id) 
go 
<% 

} // end if { (theRolel. multiplicity == xyMANY...)) 
} // end ford = 0; i < theAssocs . Count ; i++) 

%> 
<% 



// function ToUpperCaseName (s) { 

// var si = new String ("") ; 

// for(i = 0; i < s. length; i++) { 

// var c = s.charAt(i); 

// if ("a" <= c && c <= "z") { 

// si = si + c. toUpperCase {) ; 

// } else if ("A" <= c && c <= "Z") { 

// si = si + + c; 

// } 

// } 

// return (si) ; 

// } 
%> 
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36 whighsmith 4/16/01 4:49p checked in 
$/MetaPrograms/windowsDNA/pRobot/metaProgra 

m/scnema 

35 Sbutler 11/01/00 3:07p Checked in 
$/MetaPrograms/wi ndowsDNA/pRobot/templ ates/ 

sq!7x2 

34 whighsmith 9/25/00 3:29p Checked in 
S/MetaPrograms/windowsDNA/pRobot/templates/ 

sq!7x2 

33 Sbutler 9/22/00 12:46p Checked in 
$/MetaPrograms/windowsDNA/pRobot/templates/ 

sql 7x2 

32 wwang 7/31/00 5:28p Checked in 

$/MetaPrograms/wi ndowDNA/pRobot/templ ates/s 

ql7x2 





Wwang 


7/31/00 


4:14p 




Wwang 


7/31/00 


2:06p 




wwang 


6/27/00 


11:42a 


31 


Yliu 


5/11/00 


10:19a 


30 


wwang 


5/10/00 


9:44a 


29 


Yliu 


5/02/00 


4:57p 


28 


Sbutler 


3/30/00 


4:36p 


27 


Wwang 


3/06/00 


2:03p 


26 


wwang 


2/08/00 


2:06p 


25 


Wwang 


1/27/00 


4:17p 


24 


wwang 


1/19/00 


2:48p 


23 


Wwang 


1/19/00 


2:46p 


22 


Wwang 


1/10/00 


9:25a 


21 


Sbutler 


12/20/99 


5:35p 



Labeled 'Release 1.0 Beta 9' 

Labeled 'Release 1.0 Pre-Beta 9' 

Labeled 'Release 1.0 Beta 6' 

Checked in $/pRobot/templ ates/sql 7x2 

Checked in $/pRobot/templ ates/sql 7x2 

Checked in $/pRobot/templ ates/sql 7x2 

checked in $/pRobot/templ ates/sql 7x2 

Checked in S/pRobot/templ ates/sql 7x2 

Checked in $/pRobot/templ ates/sql 7x2 

Checked in $/pRobot/templ ates/sql 7x2 

Checked in S/pRobot/templ ates/sql 7x2 

Checked in S/pRobot/templ ates/sql 7x2 

Checked in $/pRobot/templ ates/sql 7x2 

Checked in $/pRobot/templ ates/sql 7x2 
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sql 7x_sql . cmt-hi story . txt 



20 


Wwang 


12/10/99 


2:17p 


Checked in $/pRobot/templates/sql7x2 


19 


Wwang 


12/10/99 


2:07p 


Checked in $/pRobot/templates/sql7x2 


.18 


Sbutler 


11/18/99 


11:15a 


Checked in $/pRobot/temp1ates/sq!7x2 


17 


sbutler 


11/18/99 


11:10a 


Checked in $/DRobot/teniDlates/sal7x2 


16 


Sbutler 


11/10/99 


2:48p 


Checked in $/DRobot/temDlates/sal7x2 


15 


sbutl er 


11/09/99 


11:33a 


Checked in £ /DRobot/temnl ates/sal 7y2 


14 


Wwana 


10/25/99 


ll*45a 


fhprkpH in ^ /nRnhnt /tpmnl a toe /cnl 7v9 




wwana 


10/22/99 


4: 47p 


label pd ' pn"FoTru^1*2 0a f 

LCIUC I CU CI IIUI 1 ■ VJCL 




Wwana 

llllul IU 


10/22/99 




1 ahplprf 1 pn*Fn1"rue1"? ft* 

LaUC 1 CU Clll ULI UO ■ U 


13 


Wwana 

■III 1 1 *j 


10/07/99 


2:26p 


f'hprkpd in t /nRnhnt/tpmnl atoc /cnl 7y? 


12 


Wwana 

f VTV CL| i y 


8/25/99 


9:08a 


fhpfkpH in U/nRnhnt /tpmnl atpc /cnl 7y 




wwang 


8/08/99 


3:44p 


Labeled ' EnfoTrustl 0' 




Wwang 


8/08/99 


l:21p 


Labeled 1 EnfoTrustl 0* 

L«UU V- ■ V_ Ixi ^ III W II U J L JL* m V 




wwang 


7/15/99 


10:22a 


lahplpd 'Rpfnrp nrp^orvinn InaH Rn^p* 

LOUC 1 CU OC 1 Ul C 1 CJCI VII 1 y 1 UCIU l\U3C 




Wwang 


6/29/99 


12:00p 


Labeled '06 29 1999 ' 




Wwana 


6/20/99 


9: 34a 


Labeled '06 20 1QQQ Q"40am 1 

L-CLU/ C 1 CU \J\J • ■ ±ZJ J J 7 • i WCli II 






6/18/99 

V/ 10/ 


1 - 5fin 


LaUC 1 CU DC 1 Ul C tllUVC Ul II fJat.Kcl^C UUL 




Wwana 


fi/0fi/99 








Wwana 

nrvai iu 


6/03/99 


2 ■ 09n 


l^hplpH 'fi/^/IQQQ 14-nn 1 


11 


Wwana 

vv iv c& i iu 


5/17/99 

J/ J-/ / 35 




f*hpr*l^pH in t /nDr^hrt^ /"t"Ptiin1 atoc /cnl 7v 

IC^.I^CU III J)/ pfxUUU L/ LCIIlfJ ICILC9/ 1 f A 


10 


Wwana 

rlliul IU 


5/17/99 


3 * 39n 


fhpfkprl in t /nDnhnt /tomnl atoc /cnl 7y 

VhIICUIVCU III J)/ piVUUUL/ LCII1U 1 Cl LCO/ 1 / A 


9 


Wwana 


5/17/99 


10: 29a 


Rranfhprl at vprci'nn Q 

Dl CLIIV.IICU CL L. VCI 3 1 Ul 1 J 




Wwana 


4/27/99 


5:05p 


Labeled 9 ra 04 27 1999 S'OSPM 1 


8 


wwang 


4/14/99 


5 :37p 


Checkpd in ^/yvmnlpmpntnr/+*pmnlat*P</Hh <n!7 

1 CUI\C U III ■4' / AJr IIIU 1 CHIC 1 1 UV/I / LCIll|J 1 d LC^/ U U j | / 


7 


Wwang 


3/13/99 


l:llp 


Checked in $ /xvmo 1 eme n tor /tenia! at ps/db sal 7 

\iiicv>i\cu 111 •j'/Ayiii^ji ciiici i wv/i / ccui£/icii.c*>/ uu^jij I / 


c 
O 


wwang 


3 /A/1 /ao 


9 : 5Zp 


Checked in $/xymplementor/templates/db_sq!7 


5 


Acai 


1/19/99 


4:47p 


Checked in $/Xymplementor/templates/db_sql7 


4 


Acai 


1/18/99 


5:29p 


Checked in $/xymplementor/templates/db_sql7 


3 


Acai 


1/18/99 


10:48a 


Checked in $/xymplementor/templates/db_sql7 


2 


Acai 


1/14/99 


U:00p 


checked in $/Xymplementor/templates/db_sql7 


1 


Acai 


1/13/99 


3:19p 


Created sq!7.sql 
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-*-assoriations<7\ 0..n 




+g>enefa fixations 



<<OJstrfeutafcfe£*> 


0 " n 










^objtdl : String ;=* 
^tBme : String 
, :. ^description : String = ™* 
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;i^j©tee6tvpe .:.Sfemg :: =•" , . 






~ ^«tocat»toSiring{} 
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+ct"iiWfen 





•HnetaCfasses 



+subsyst 



+modei 
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-^associations 


























0„n A 




_ 1-1 



O 



"■^rtiBraa c Sir 



0..1 



•fsroRole 1 " 1 






> 








^^^^ 1,.' 


: ♦<<loda&> toSbringG: 



+ctesrtRote 



Xo ; .1 



rpbftributable>> 



Td Stri ng - 
rae : $*ing = WM 
icyiptton : S.friiig ~ 



oca>> toStnhgJ) .. 




<c<JJbtrib utai>Ie>> 
. . Operation 



^rtame : String = ■* 
^«iesdriptMOf^ • "String =!.*"" 
^stereotype :' Stri rtg ~ 
^ffeturnTypB : String = *?• - 
^pcecortf itions : String 
^pcsfcpfrtlitfcpos : Strife ~ 

^sStatfc : twsolesn L= fetee 
^isConsta«t boofean == fefee 
^isFriend : £mfiBBh..= fate; . 
^tslnfirte : booteaffi = fafse 
^isTen^tale! : t^te^ = false - 
~ v "* ' * - ^ "■" boolean :^fafee 



^<<toca^> ioStrwiigG 



ems/ 0..n 



-+operatii 



/ 0.J1 

ions 



rr: Strang 



• toS'iinsgjj: 



In***.! 



1~1 



On 



ttlXfitJtHTS 

On 


^generalizations 




fzatton 










s ^.Strrrtg.—™^ 
: Strmg = : 




toSiiingO; \ 


\0.ji 



1..n 



1„1 



rt = fsrtse : 



6 1-1 



5 : <^isP&utap^> • 



String i^pc^ =" 




boolean ^T^rs& 
boolean 




-HnetsCI. 



0„ji 



1.-1 fe*=2} 



r -^multiplfcity 



1„1 




-^-parameters 


. • : Parameter 


: . ^riarrpa : String = 
i ^data^ype : String '= *" B 
^modifier : Sfrlng — 
^ctefefulft/^lue : Stains - 
■ ^isCbnsiant : boofeain - false 




0..n 























: ^p&»"riic^^»« ; n^-v;^ ■: k • : : . - ": 


^attributes 






^fs&cf*sh« : bocrfean = faEse 







■+persistertce , 
{^PERSBTaOT}. A i„ 1 




0„n 




-*sa>pe 



«lrttertaae>> 
Enumeration 



tf 1 



♦toting 

4 "5 ' 



acTRACT : int ■= 3 



■:v£-"5-*fien»lTi>> 



mt = 2 
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Class Diagram: generator /generator 
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Use Case Diagram: Use Case View / Main 
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